Những câu hỏi liên quan
Duy Lương
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 2 2023 lúc 15:21

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Pham Uyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2020 lúc 13:09

uses crt;

var i,n,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');

for i:=5 to n do 

  if (i mod 2=0) and (i mod 7=0) then write(i:4);

writeln;

writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');

dem:=0;

for i:=5 to n do 

  if i mod 7=0 then 

   begin

write(i:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);

readln;

end.

Bình luận (0)
‎‎‎            ‎
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:41

#include <bits/stdc++.h>

using namespace std;

long long m,n,i,t;

int main()

{

cin>>m>>n;

t=0;

for (i=m; i<=n; i++)

if (i%15==0) t=t+i;

cout<<t;

return 0;

}

Bình luận (0)
Hưng Quốc
Xem chi tiết
Thanh Phong (9A5)
31 tháng 3 2023 lúc 16:51

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Bình luận (0)
láobốlaos
31 tháng 3 2023 lúc 16:54

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:31

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

Bình luận (0)
Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%2==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
minh
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 21:00

uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.

Bình luận (0)
tho hit co
Xem chi tiết
Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2022 lúc 22:53

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<"     ";

cout<<endl;

ln=a[1];

nn=a[1];

for (i=2; i<=n; i++)

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<ln<<" "<<nn;

}

Bình luận (0)